(DEF SHELL
 (LAMBDA (X) (NULL (EXEC /BIN/SH))))

(DEF UPDATE
 (LAMBDA (X)
  (PROG (I POPORT N F)
        (SETQ I (INFILE X))
        (SETQ POPORT
              (OUTFILE (SETQ N (CONCATP (QUOTE UPDATE)))))
   L1   (COND ((EQ (SETQ F (READ I)) (QUOTE EOF)) (GO E1))
              ((OR (ATOMP F)
                   (NUMBP F)
                   (NULL (EQ (QUOTE DEF) (CAR F))))
               ($PRPR F)
               (TERPRI))
              ((NULL (GETD (CADR F))) ($PRPR F) (TERPRI))
              (T (PPEVQ (CONS (CADR F)))))
        (GO L1)
   E1   (CLOSE POPORT)
        (CLOSE I)
        (EVAL
         (CONS (QUOTE EXEC)
               (CONS (QUOTE /USRBIN/CP) (CONS N (CONS X)))))
        (NULL
         (EVAL
          (CONS (QUOTE EXEC)
                (CONS (QUOTE /BIN/RM) (CONS N))))))))

(DEF TECO
 (LAMBDA (X Y)
  (COND ((EQ 1
             (SETQ Y
                   (EVAL
                    (CONS (QUOTE EXEC)
                          (CONS (QUOTE /BIN/TECO) (CONS X))))))
         (LOAD X)
         1)
        (T Y))))

(DEF TECF
 (NLAMBDA (X$) (TECFEVQ (CAR X$))))

(DEF TECFEVQ
 (LAMBDA (X)
  (PROG (POPORT A)
        (SETQ A (CONCATP (QUOTE "TECLSP.")))
        (SETQ POPORT (OUTFILE A))
        (PPEVQ X)
        (SETQ POPORT (CLOSE POPORT))
        (COND
         ((GREATERP (TECO A) -1) (EXEC /BIN/RM "TECLSP.BAK")))
        (NULL
         (EVAL
          (CONS (QUOTE EXEC)
                (CONS (QUOTE /BIN/RM) (CONS A))))))))

(DEF UNPROTOCOL
 (LAMBDA (X)
  (PROG (A)
        (COND
         ((NULL (SETQ A (UNPROTOCOL1)))
          (SETQ A (QUOTE "L110.PROTOCOL"))))
        (COND
         (X (EVAL
             (CONS (QUOTE EXEC)
                   (CONS (QUOTE /BIN/PRINT) (CONS A))))
            (EVAL
             (CONS (QUOTE EXEC)
                   (CONS (QUOTE /BIN/RM)
                         (CONS (QUOTE -F) (CONS A)))))
            NIL)))))